home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / requester.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-31  |  616b  |  30 lines
  1. /*
  2. ------------------------------------------------------------
  3.  requester.rexx
  4.  
  5.  This script demonstrates the purpose of "m_request"-command
  6.  
  7.  Copyright ©1996 WK-Artworks
  8. ------------------------------------------------------------
  9. */
  10.  
  11. if ~show('P','Wildfire') then do
  12.  say " Error: The Wildfire-program must be started before executing this script."
  13.  exit
  14. end
  15.  
  16. address 'Wildfire'
  17. options results
  18.  
  19. m_request "Do you really wan't to continue this stupid operation ?"
  20. tt=result
  21. if tt=1 then do
  22.  m_message "This was the better choice."
  23.  exit
  24. end
  25.  
  26. do loop=1 to 10
  27.  msg="Message " || loop || " of 10"
  28.  m_message msg
  29. end
  30.